home *** CD-ROM | disk | FTP | other *** search
/ Spiceworld The Movie - Interactive CD-ROM / Spiceworld The Movie: Interactive CD-ROM.iso / pc / elements / spicetwo.dir / scripts_52_poshpuzzle.ls < prev    next >
Encoding:
Text File  |  1997-12-04  |  584 b   |  28 lines
  1. on prepareFrame
  2.   global LOOPFRAME
  3.   if not (LOOPFRAME = the frameLabel) then
  4.     initialiseFrame()
  5.   end if
  6. end
  7.  
  8. on enterFrame
  9.   global poshPuzzle
  10.   if poshPuzzle = VOID then
  11.     set offset to 2
  12.     repeat with spriteNo = 3 to 11
  13.       set turnSides to random(4)
  14.       repeat with turnCount = 1 to turnSides
  15.         set memberName to "ps," & spriteNo - offset & "," & turnCount
  16.         set the member of sprite spriteNo to memberName
  17.         updateStage()
  18.       end repeat
  19.     end repeat
  20.     set poshPuzzle to "done"
  21.   end if
  22.   checkRollOvers()
  23. end
  24.  
  25. on exitFrame
  26.   go(the frame)
  27. end
  28.